The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/Index.dxr/00114.ls

Text File | 1998-11-19 | 564 b | 29 lines

global endSprite

on enterFrame
  global hiliterect, roomcontentsprite, currlabel, returnflag
  if rollOver(roomcontentsprite) then
    puppetSprite(hiliterect, 0)
    set returnflag to 1
    go(currlabel && "Menu")
  end if
  set mouseposition to point(the mouseH, the mouseV)
  if inside(mouseposition, rect(83, 79, 318, 114)) then
    scrollpictup(34)
  else
    if inside(mouseposition, rect(83, 431, 318, 466)) then
      scrollpictdown(34)
    else
      cursor(-1)
    end if
  end if
end

on exitFrame
  go(the frame)
end

on idle
  checkrollover(#up)
end